
*******************************************************************************
*** Description: 	This document provides code for reproducing the 		***
***					results tables in the paper, "Do Emotions Drive  		***
***					the Link Between Winning and Satisfaction with  		***
***					Democracy? Leveraging the Super Bowl, the World 		***
***					Cup, and The Lion King which is authored by Shane P.	***
***					Singh, Patrick Fournier, and Jason Roy and appears		***
***					in Political Psychology.	 							***
*******************************************************************************


**************
**************
*Set the Version                                                                                                                                 
**************
**************
version 17


**************
**************
*Open the Data for Study 1                                                                                                                              
**************
**************
use "~your file pathway/Study 1.dta"



**************
**************
*Get Estimation Sample
**************
**************
reg swd_diff  i.genderrecode age incomerecode educ_level partisanship  if include==1 & partisanship ~=0 & submitdate~=. & id_post~=.
gen samp = 1 if e(sample) 
*drop people surveyed after kickoff
replace samp = . if hours_before_kickoff == .



**************
**************
*Figure 1a                                                                                                                         
**************
**************
reg mood_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==1) post level(90)
estimates store location_cinci

reg mood_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==2) post level(90)
estimates store location_la

reg mood_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==3) post level(90)
estimates store location_us

coefplot 	///
			(location_cinci,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(location_us,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(location_la,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Cincinnati Region"  ///
				 1 	"Other Region"  ///
				 1.3 	"Los Angeles Region"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 
		


**************
**************
*Figure 1b                                                                                                                         
**************
**************
reg mood_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==1) post level(90)
estimates store care_wins_cinci

reg mood_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==2) post level(90)
estimates store care_wins_la

reg mood_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==3) post level(90)
estimates store care_wins_dont

coefplot 	///
			(care_wins_cinci,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(care_wins_dont,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(care_wins_la,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Bengals Supporter"  ///
				 1 	"No Preference"  ///
				 1.3 	"Rams Supporter"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off)  
		


**************
**************
*Figure 1c                                                                                                                         
**************
**************
reg mood_diff b3.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 1 care_amount == 0)  post level(90)
estimates store bengals_lowcare

reg mood_diff b3.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 1 care_amount == 10)  post level(90)
estimates store bengals_highcare

reg mood_diff b3.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 2 care_amount == 0)  post level(90)
estimates store rams_lowcare

reg mood_diff b3.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 2 care_amount == 10)  post level(90)
estimates store rams_highcare

reg mood_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 3)  post level(90)
estimates store dont_care

coefplot 	///
			(bengals_highcare,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(black) ciopts(color(black*.8) lwidth(medium))) ///	
			(bengals_lowcare,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///					
			(dont_care,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(rams_lowcare,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
			(rams_highcare,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(gold) ciopts(color(gold*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Strong Bengals" "Supporter"  "'  ///
				.8  `" "Weak Bengals" "Supporter"  "'  ///
				 1 	"No Preference"  ///
				 1.2 	`" "Weak Rams" "Supporter"  "'  ///
				 1.4 	`" "Strong Rams" "Supporter"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 


**************
**************
*Figure 2                                                                                                                          
**************
**************
reg swd_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==1) post level(90)
estimates store location_cinci

reg swd_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==2) post level(90)
estimates store location_la

reg swd_diff b3.location i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(location==3) post level(90)
estimates store location_us

coefplot 	///
			(location_cinci,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(location_us,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(location_la,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Cincinnati Region"  ///
				 1 	"Other Region"  ///
				 1.3 	"Los Angeles Region"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 

		

**************
**************
*Figure 3                                                                                                                          
**************
**************
reg swd_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==1) post level(90)
estimates store care_wins_cinci

reg swd_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==2) post level(90)
estimates store care_wins_la

reg swd_diff b3.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins==3) post level(90)
estimates store care_wins_dont

coefplot 	///
			(care_wins_cinci,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(care_wins_dont,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(care_wins_la,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Bengals Supporter"  ///
				 1 	"No Preference"  ///
				 1.3 	"Rams Supporter"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off)  
		


**************
**************
*Figure 4                                                                                                                          
**************
**************
reg swd_diff b1.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 1 care_amount == 10)  post level(90)
estimates store bengals_highcare

reg swd_diff b1.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 1 care_amount == 0)  post level(90)
estimates store bengals_lowcare

reg swd_diff b1.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 2 care_amount == 0)  post level(90)
estimates store rams_lowcare

reg swd_diff b1.care_wins##c.care_amount i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 2 care_amount == 10)  post level(90)
estimates store rams_highcare

reg swd_diff b1.care_wins i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins == 3)  post level(90)
estimates store dont

coefplot 	///
			(bengals_highcare,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(black) ciopts(color(black*.8) lwidth(medium))) ///	
			(bengals_lowcare,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(dont,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(rams_lowcare,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
			(rams_highcare,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(gold) ciopts(color(gold*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Strong Bengals" "Supporter"  "'  /// 
				.8  `" "Weak Bengals" "Supporter"  "'  ///
				 1 	"No Preference"  ///
				 1.2 	`" "Weak Rams" "Supporter"  "'  ///
				 1.4 	`" "Strong Rams" "Supporter"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 



**************
**************
*Figure 5                                                                                                                          
**************
**************
reg swd_diff b3.team_attachment##c.attachstrgth i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(team_attachment == 1 attachstrgth == 10)  post level(90)
estimates store bengals_highfan

reg swd_diff b3.team_attachment##c.attachstrgth i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(team_attachment == 1 attachstrgth == 0)  post level(90)
estimates store bengals_lowfan

reg swd_diff b3.team_attachment##c.attachstrgth i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(team_attachment == 2 attachstrgth == 0)  post level(90)
estimates store rams_lowfan

reg swd_diff b3.team_attachment##c.attachstrgth i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(team_attachment == 2 attachstrgth == 10)  post level(90)
estimates store rams_highfan

reg swd_diff b1.team_attachment##c.attachstrgth i.genderrecode age incomerecode educ_level partisanship  if samp == 1
margins, at(team_attachment == 3)  post level(90)
estimates store other

coefplot 	///
			(bengals_highfan,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(black) ciopts(color(black*.8) lwidth(medium))) ///			
			(bengals_lowfan,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(other,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(rams_lowfan,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
			(rams_highfan,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(gold) ciopts(color(gold*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  "Strong Bengals Fan"   ///
				.8  "Weak Bengals Fan"  ///
				 1 	"Fan of Neither"  ///
				 1.2 	"Weak Rams Fan/"  ///
				 1.4 	"Strong Rams Fan"   ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 


**************
**************
*Figure 6                                                                                                                          
**************
**************
reg swd_diff b3.care_wins##b3.expect_win i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins== 1 expect_win == 1)  post level(90)
estimates store care_cin_exp_bengals

reg swd_diff b3.care_wins##b3.expect_win i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins== 1 expect_win == 2)  post level(90)
estimates store care_cin_exp_rams

reg swd_diff b3.care_wins##b3.expect_win i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins== 2 expect_win == 1)  post level(90)
estimates store care_la_exp_bengals

reg swd_diff b3.care_wins##b3.expect_win i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins== 2 expect_win == 2)  post level(90)
estimates store care_la_exp_rams

reg swd_diff b3.care_wins##b3.expect_win i.genderrecode age incomerecode educ_level partisanship  if samp == 1 
margins, at(care_wins== 3 expect_win == 3)  post level(90)
estimates store care_no_exp

coefplot 	///
			(care_cin_exp_bengals,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(orange) ciopts(color(orange*.8) lwidth(medium))) ///			
			(care_cin_exp_rams,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(black) ciopts(color(black*.8) lwidth(medium))) ///			
			(care_no_exp,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(care_la_exp_bengals,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///			
			(care_la_exp_rams,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(gold) ciopts(color(gold*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Expect Bengals/" "Bengals Supporter"  "'  ///
				.8  `" "Expect Rams/" "Bengals Supporter"  "'  ///
				 1 	`" "No Expectation/" "No Preference"  "'  ///
				 1.2 	`" "Expect Bengals/" "Rams Supporter"  "'  ///
				 1.4 	`" "Expect Rams/" "Rams Supporter"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 
		




**************
**************
*Open the Data for Study 2                                                                                                                             
**************
**************
use "~your file pathway/Study 2.dta"




**************
**************
*Get Estimation Sample
**************
**************
reg swd_diff i.gender_m age_m income_m education_m i.pid_m
gen samp = 1 if e(sample) 




**************
**************
*Figure 7a                                                                                                                          
**************
**************
reg mood_diff location_m i.gender_m age_m income_m education_m i.pid_m if samp==1

margins, at(location_m==1) post level(90)
estimates store location_arg

reg mood_diff location_m i.gender_m age_m income_m education_m i.pid_m if samp==1
margins, at(location_m==2) post level(90)
estimates store location_fr

coefplot 	///
			(location_arg,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(location_fr,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Argentina Resident"  ///
				 1.3 	"France Resident"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 
		

**************
**************
*Figure 7b                                                                                                                          
**************
**************
reg mood_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==1) post level(90)
estimates store care_wins_arg

reg mood_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==2) post level(90)
estimates store care_wins_fr

reg mood_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==3) post level(90)
estimates store care_wins_dont

coefplot 	///
			(care_wins_arg,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(care_wins_dont,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(care_wins_fr,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Argentina Supporter"  ///
				 1 	"No Preference"  ///
				 1.3 	"France Supporter"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off)  


**************
**************
*Figure 7c                                                                                                                          
**************
**************
reg mood_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 1 care_amount_m == 10)  post level(90)
estimates store arg_highcare

reg mood_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 1 care_amount_m == 0)  post level(90)
estimates store arg_lowcare

reg mood_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 2 care_amount_m == 0)  post level(90)
estimates store fr_lowcare

reg mood_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 2 care_amount_m == 10)  post level(90)
estimates store fr_highcare

reg mood_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 3)  post level(90)
estimates store dont_care

coefplot 	///
			(arg_highcare,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(arg_lowcare,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(yellow) ciopts(color(yellow*.8) lwidth(medium))) ///			
			(dont_care,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(fr_lowcare,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(edkblue) ciopts(color(edkblue*.8) lwidth(medium))) ///			
			(fr_highcare,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Strong Argentina" "Supporter"  "'  ///
				.8  `" "Weak Argentina" "Supporter"  "'  ///
				 1 	"No Preference"  ///
				 1.2 	`" "Weak France" "Supporter"  "'  ///
				 1.4 	`" "Strong France" "Supporter"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Mood",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 
		




**************
**************
*Figure 8                                                                                                                         
**************
**************

reg swd_diff location_m i.gender_m age_m income_m education_m i.pid_m if samp==1
margins, at(location_m==1) post level(90)
estimates store location_arg

reg swd_diff location_m i.gender_m age_m income_m education_m i.pid_m if samp==1
margins, at(location_m==2) post level(90)
estimates store location_fr

coefplot 	///
			(location_arg,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(location_fr,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Argentina Resident"  ///
				 1.3 	"France Resident"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 



**************
**************
*Figure 9                                                                                                                         
**************
**************
reg swd_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==1) post level(90)
estimates store care_wins_arg

reg swd_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==2) post level(90)
estimates store care_wins_fr

reg swd_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m==3) post level(90)
estimates store care_wins_dont

coefplot 	///
			(care_wins_arg,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(care_wins_dont,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(care_wins_fr,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .7  "Argentina Supporter"  ///
				 1 	"No Preference"  ///
				 1.3 	"France Supporter"  ///
			, labsize(medsmall)) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off)



**************
**************
*Figure 10                                                                                                                         
**************
**************
reg swd_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 1 care_amount_m == 10)  post level(90)
estimates store arg_highcare

reg swd_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 1 care_amount_m == 0)  post level(90)
estimates store arg_lowcare

reg swd_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 2 care_amount_m == 0)  post level(90)
estimates store fr_lowcare

reg swd_diff b3.care_wins_m##c.care_amount_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 2 care_amount_m == 10)  post level(90)
estimates store fr_highcare

reg swd_diff b3.care_wins_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(care_wins_m == 3)  post level(90)
estimates store dont_care

coefplot 	///
			(arg_highcare,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(arg_lowcare,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(yellow) ciopts(color(yellow*.8) lwidth(medium))) ///			
			(dont_care,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(fr_lowcare,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(edkblue) ciopts(color(edkblue*.8) lwidth(medium))) ///			
			(fr_highcare,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Strong Argentina" "Supporter"  "'  ///
				.8  `" "Weak Argentina" "Supporter"  "'  ///
				 1 	"No Preference"  ///
				 1.2 	`" "Weak France" "Supporter"  "'  ///
				 1.4 	`" "Strong France" "Supporter"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 



**************
**************
*Figure 11                                                                                                                         
**************
**************
reg swd_diff location_m##b3.team_attachment_m##c.attach_strength_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m== 1 team_attachment_m == 1 attach_strength_m == 10)  post level(90)
estimates store location_arg_highfan

reg swd_diff location_m##b3.team_attachment_m##c.attach_strength_m i.gender_m age_m income_m education_m i.pid_m if samp==1  
margins, at(location_m== 1 team_attachment_m == 1 attach_strength_m == 0)  post level(90)
estimates store location_arg_lowfan

reg swd_diff location_m##b3.team_attachment_m##c.attach_strength_m i.gender_m age_m income_m education_m i.pid_m if samp==1  
margins, at(location_m== 2 team_attachment_m == 2 attach_strength_m == 0)  post level(90)
estimates store location_fr_lowfan

reg swd_diff location_m##b3.team_attachment_m##c.attach_strength_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m== 2 team_attachment_m == 2 attach_strength_m == 10)  post level(90)
estimates store location_fr_highfan

reg swd_diff location_m##b1.team_attachment_m##c.attach_strength_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(team_attachment_m == 3)  post level(90)
estimates store neither

coefplot 	///
			(location_arg_highfan,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(location_arg_lowfan,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(yellow) ciopts(color(yellow*.8) lwidth(medium))) ///			
			(neither,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(location_fr_lowfan,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(edkblue) ciopts(color(edkblue*.8) lwidth(medium))) ///			
			(location_fr_highfan,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Strong Argentina Fan/" "Argentina Resident"  "'  ///
				.8  `" "Weak Argentina Fan/" "Argentina Resident"  "'  ///
				 1 	"Fan of Neither"  ///
				 1.2 	`" "Weak France Fan/" "France Resident"  "'  ///
				 1.4 	`" "Strong France Fan/" "France Resident"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 		
		


**************
**************
*Figure 12                                                                                                                         
**************
**************
reg swd_diff location_m##b3.expect_win_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m == 1 expect_win_m == 1)  post level(90)
estimates store arg_exp_arg

reg swd_diff location_m##b3.expect_win_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m == 1 expect_win_m == 2)  post level(90)
estimates store arg_exp_fr

reg swd_diff location_m##b3.expect_win_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m == 2 expect_win_m == 1)  post level(90)
estimates store fr_exp_arg

reg swd_diff location_m##b3.expect_win_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(location_m == 2 expect_win_m == 2)  post level(90)
estimates store fr_exp_fr

reg swd_diff location_m##b3.expect_win_m i.gender_m age_m income_m education_m i.pid_m if samp==1 
margins, at(expect_win_m== 3)  post level(90)
estimates store none

coefplot 	///
			(arg_exp_arg,  offset(.4) msymbol(circle) msize(medlarge)  mcolor(midblue) ciopts(color(midblue*.8) lwidth(medium))) ///			
			(arg_exp_fr,  offset(.2) msymbol(circle) msize(medlarge)  mcolor(yellow) ciopts(color(yellow*.8) lwidth(medium))) ///			
			(none,  offset(0) msymbol(circle) msize(medlarge)  mcolor(gs8) ciopts(color(gs8*.8) lwidth(medium))) ///			
			(fr_exp_arg,  offset(-.2) msymbol(circle) msize(medlarge)  mcolor(edkblue) ciopts(color(edkblue*.8) lwidth(medium))) ///			
			(fr_exp_fr,  offset(-.4) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		xline(0, lcolor(black) lpattern(dash))		///
		ylabel(	 .6  `" "Expect Argentina/" "Argentina Resident"  "'  ///
				.8  `" "Expect France/" "Argentina Resident"  "'  ///
				 1 	"No Expectation"  ///
				 1.2 	`" "Expect Argentina/" "France Resident"  "'  ///
				 1.4 	`" "Expect France/" "France Resident"  "'  ///
			, labsize(small) ) ///
		xlabel(-2(1)2)  ///
		xtitle("Change in Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(2) xsize(7) scale(2.15)	///
		legend(off) 
		




**************
**************
*Open the Data for Study 3                                                                                                                            
**************
**************
use "~your file pathway/Study 3.dta"




**************
**************
*Get Estimation Sample
**************
**************
reg swdpost i.treatment age female income education i.strongpid if attention==1 & full==1
gen samp = 1 if e(sample) 



**************
**************
*Figure 13                                                                                                                         
**************
**************
reg moodpost  i.treatment age female income education i.strongpid  if samp==1
margins, at(treatment==1) post level(90)
estimates store treatment_pos

reg moodpost  i.treatment age female income education i.strongpid  if samp==1
margins, at(treatment==2) post level(90)
estimates store treatment_neg

coefplot 	///
			(treatment_pos,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///	
			(treatment_neg,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		ylabel(	 .7  "Positive Treatment"  ///
				 1.3 	"Negative Treatment"  ///
			, labsize(medsmall)) ///
		xlabel(0(1)10)  ///
		xtitle("Mood Scale",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 


**************
**************
*Figure 14                                                                                                                         
**************
**************
reg swdpost  i.treatment age female income education i.strongpid  if samp==1
margins, at(treatment==1) post level(90)
estimates store treatment_pos

reg swdpost  i.treatment age female income education i.strongpid  if samp==1
margins, at(treatment==2) post level(90)
estimates store treatment_neg

coefplot 	///
			(treatment_pos,  offset(.3) msymbol(circle) msize(medlarge)  mcolor(blue) ciopts(color(blue*.8) lwidth(medium))) ///	
			(treatment_neg,  offset(-.3) msymbol(circle) msize(medlarge)  mcolor(red) ciopts(color(red*.8) lwidth(medium))) ///			
		, scheme(s1color)  title("") levels(90)  grid(none)	///
		ylabel(	 .7  "Positive Treatment"  ///
				 1.3 	"Negative Treatment"  ///
			, labsize(medsmall)) ///
		xlabel(0(1)10)  ///
		xtitle("Satisfaction with Democracy",  size(medium))  ytitle("")  ///
		ysize(1.5) xsize(7) scale(2.9)	///
		legend(off) 





